home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / contro2r / form1.frm < prev    next >
Text File  |  1999-04-06  |  15KB  |  478 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "My DataBase Record"
  5.    ClientHeight    =   4320
  6.    ClientLeft      =   150
  7.    ClientTop       =   720
  8.    ClientWidth     =   6705
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   4320
  12.    ScaleWidth      =   6705
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.Frame Frame4 
  15.       Caption         =   "Icon"
  16.       BeginProperty Font 
  17.          Name            =   "Times New Roman"
  18.          Size            =   9.75
  19.          Charset         =   0
  20.          Weight          =   700
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       ForeColor       =   &H00FF0000&
  26.       Height          =   975
  27.       Left            =   5160
  28.       TabIndex        =   14
  29.       Top             =   0
  30.       Width           =   1455
  31.       Begin VB.Image Image1 
  32.          DataField       =   "Icon"
  33.          DataSource      =   "Data1"
  34.          Height          =   615
  35.          Left            =   360
  36.          Stretch         =   -1  'True
  37.          Top             =   240
  38.          Width           =   735
  39.       End
  40.    End
  41.    Begin VB.Frame Frame3 
  42.       Caption         =   "Control Station"
  43.       BeginProperty Font 
  44.          Name            =   "Times New Roman"
  45.          Size            =   9.75
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00FF0000&
  53.       Height          =   2775
  54.       Left            =   4560
  55.       TabIndex        =   7
  56.       Top             =   1440
  57.       Width           =   2055
  58.       Begin VB.CommandButton killit 
  59.          Caption         =   "&KILL"
  60.          BeginProperty Font 
  61.             Name            =   "Times New Roman"
  62.             Size            =   8.25
  63.             Charset         =   0
  64.             Weight          =   400
  65.             Underline       =   0   'False
  66.             Italic          =   0   'False
  67.             Strikethrough   =   0   'False
  68.          EndProperty
  69.          Height          =   735
  70.          Left            =   1080
  71.          Picture         =   "Form1.frx":0000
  72.          Style           =   1  'Graphical
  73.          TabIndex        =   13
  74.          ToolTipText     =   "Delete File"
  75.          Top             =   1920
  76.          Width           =   855
  77.       End
  78.       Begin VB.CommandButton load 
  79.          Caption         =   "&Load"
  80.          BeginProperty Font 
  81.             Name            =   "Times New Roman"
  82.             Size            =   8.25
  83.             Charset         =   0
  84.             Weight          =   400
  85.             Underline       =   0   'False
  86.             Italic          =   0   'False
  87.             Strikethrough   =   0   'False
  88.          EndProperty
  89.          Height          =   735
  90.          Left            =   120
  91.          Picture         =   "Form1.frx":0442
  92.          Style           =   1  'Graphical
  93.          TabIndex        =   12
  94.          ToolTipText     =   "Load Record Into Database"
  95.          Top             =   1920
  96.          Width           =   855
  97.       End
  98.       Begin VB.CommandButton seek 
  99.          BackColor       =   &H00C0C0C0&
  100.          Caption         =   "&Seek"
  101.          BeginProperty Font 
  102.             Name            =   "Times New Roman"
  103.             Size            =   8.25
  104.             Charset         =   0
  105.             Weight          =   400
  106.             Underline       =   0   'False
  107.             Italic          =   0   'False
  108.             Strikethrough   =   0   'False
  109.          EndProperty
  110.          Height          =   735
  111.          Left            =   1080
  112.          Picture         =   "Form1.frx":0884
  113.          Style           =   1  'Graphical
  114.          TabIndex        =   11
  115.          ToolTipText     =   "Seek For *ico and load it"
  116.          Top             =   1080
  117.          Width           =   855
  118.       End
  119.       Begin VB.CommandButton delete 
  120.          BackColor       =   &H00C0C0C0&
  121.          Caption         =   "&Delete"
  122.          BeginProperty Font 
  123.             Name            =   "Times New Roman"
  124.             Size            =   8.25
  125.             Charset         =   0
  126.             Weight          =   400
  127.             Underline       =   0   'False
  128.             Italic          =   0   'False
  129.             Strikethrough   =   0   'False
  130.          EndProperty
  131.          Height          =   735
  132.          Left            =   120
  133.          Picture         =   "Form1.frx":0CC6
  134.          Style           =   1  'Graphical
  135.          TabIndex        =   10
  136.          ToolTipText     =   "Delete Record"
  137.          Top             =   1080
  138.          Width           =   855
  139.       End
  140.       Begin VB.CommandButton saveme 
  141.          Caption         =   "&Save"
  142.          Enabled         =   0   'False
  143.          BeginProperty Font 
  144.             Name            =   "Times New Roman"
  145.             Size            =   8.25
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          Height          =   735
  153.          Left            =   1080
  154.          Picture         =   "Form1.frx":0FD0
  155.          Style           =   1  'Graphical
  156.          TabIndex        =   9
  157.          ToolTipText     =   "Save To Database"
  158.          Top             =   240
  159.          Width           =   855
  160.       End
  161.       Begin VB.CommandButton clear 
  162.          Caption         =   "&Clear"
  163.          BeginProperty Font 
  164.             Name            =   "Times New Roman"
  165.             Size            =   8.25
  166.             Charset         =   0
  167.             Weight          =   400
  168.             Underline       =   0   'False
  169.             Italic          =   0   'False
  170.             Strikethrough   =   0   'False
  171.          EndProperty
  172.          Height          =   735
  173.          Left            =   120
  174.          Picture         =   "Form1.frx":1412
  175.          Style           =   1  'Graphical
  176.          TabIndex        =   8
  177.          ToolTipText     =   "Clear The Database"
  178.          Top             =   240
  179.          Width           =   855
  180.       End
  181.    End
  182.    Begin VB.Frame Frame2 
  183.       Caption         =   "Source File"
  184.       BeginProperty Font 
  185.          Name            =   "Times New Roman"
  186.          Size            =   9.75
  187.          Charset         =   0
  188.          Weight          =   700
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       ForeColor       =   &H00FF0000&
  194.       Height          =   2775
  195.       Left            =   120
  196.       TabIndex        =   3
  197.       Top             =   1440
  198.       Width           =   4335
  199.       Begin VB.FileListBox File1 
  200.          Height          =   2430
  201.          Left            =   2160
  202.          MultiSelect     =   2  'Extended
  203.          Pattern         =   "*.ico"
  204.          TabIndex        =   6
  205.          Top             =   240
  206.          Width           =   2055
  207.       End
  208.       Begin VB.DirListBox Dir1 
  209.          Height          =   1890
  210.          Left            =   120
  211.          TabIndex        =   5
  212.          Top             =   600
  213.          Width           =   1935
  214.       End
  215.       Begin VB.DriveListBox Drive1 
  216.          Height          =   315
  217.          Left            =   120
  218.          TabIndex        =   4
  219.          Top             =   240
  220.          Width           =   1935
  221.       End
  222.    End
  223.    Begin VB.Data Data1 
  224.       BackColor       =   &H80000006&
  225.       Caption         =   "              My DataBase Record"
  226.       Connect         =   "Access"
  227.       DatabaseName    =   ""
  228.       DefaultCursorType=   0  'DefaultCursor
  229.       DefaultType     =   2  'UseODBC
  230.       Exclusive       =   0   'False
  231.       BeginProperty Font 
  232.          Name            =   "Times New Roman"
  233.          Size            =